home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs04.d81 / diskexam.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  56 lines
  1. 900 PRINT "[147]"
  2. 1000 POKE53281,0:POKE53280,0
  3. 1010 OPEN15,8,15,"I0"
  4. 1020 INPUT#15,A:IFATHENSTOP
  5. 1030 OPEN2,8,2,"#":Q$=CHR$(0)
  6. 1040 ID=16+6:GOTO2000
  7. 1100 MH=INT(MEM/256):ML=MEM-MH*256:PRINT#15,"M-R";CHR$(ML);CHR$(MH)
  8. 1200 GET#15,A$:A=ASC(A$+Q$):RETURN
  9. 1300 :
  10. 1400 PRINT"$";:NL=INT(BY/16):GOSUB1500:NL=BY-16*NL
  11. 1500 PRINTMID$("0123456789ABCDEF",NL+1,1);:RETURN
  12. 1600 :
  13. 2000 PRINT"[147][154]DISKETTE EXAMINE"
  14. 2020 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  15. 2030 PRINT
  16. 2050 PRINT"   *** MENU ***"
  17. 2060 PRINT"[159]1. DISPLAY ID'S"
  18. 2070 PRINT"2. FAST ERROR LOOK"
  19. 2080 PRINT"3. FULL ERROR LOOK"
  20. 2090 PRINT"4. EXIT"
  21. 2110 PRINT"INPUT (1-4):";
  22. 2220 OPEN1,0:INPUT#1,A$:CLOSE1:A=VAL(A$):IFA=0THEN2000
  23. 2230 IFA>5THEN2000
  24. 2240 ONAGOTO3000,4000,5000,6000
  25. 3000 PRINT"[147]ID DISPLAY"
  26. 3010 FORT=1TO35
  27. 3020 PRINT#15,"U1:2,0,";T;",0"
  28. 3030 MEM=ID:GOSUB1100:IZ=A:MEM=ID+1:GOSUB1100:
  29. 3040 PRINTRIGHT$(STR$(T),2);". ID=";CHR$(34);CHR$(IZ);CHR$(A);CHR$(34);" ";
  30. 3050 BY=IZ:GOSUB1400:PRINT",";:BY=A:GOSUB1400
  31. 3060 PRINTTAB(20);:IFT/2=INT(T/2)THENPRINT
  32. 3070 NEXTT
  33. 3500 PRINT:PRINT"PRESS SPACE[146] FOR MENU"
  34. 3510 GETA$:IFA$<>" "THEN3510
  35. 3520 GOTO2000
  36. 4000 PRINT"[147]FAST ERROR LOOKER"
  37. 4010 FORT=1TO35
  38. 4020 PRINTRIGHT$(STR$(T),2);". ";
  39. 4030 PRINT#15,"U1:2,0,";T;",0"
  40. 4040 INPUT#15,A$,B$,C$,D$:DD$=A$+","+B$+","+C$+","+D$:PRINTDD$
  41. 4060 NEXTT
  42. 4070 GOTO 3500
  43. 5000 PRINT"[147]FULL ERROR LOOKER"
  44. 5010 FORT=1TO35:FORS=0TO99
  45. 5030 PRINT#15,"U1:2,0,";T;","S
  46. 5040 INPUT#15,A$,B$,C$,D$:DD$=A$+","+B$+","+C$+","+D$:IFA$="66"THEN5080
  47. 5041 PRINT"T="T;"[157] S=";S;"[157] ";
  48. 5050 IFA$="00"THENPRINT"[145]":GOTO5070
  49. 5060 PRINTDD$
  50. 5070 GETA$:IFA$<>" "THEN5079
  51. 5071 GETA$:IFA$=""THEN5071
  52. 5079 NEXTS
  53. 5080 NEXTT
  54. 5100 GOTO3500
  55. 6000 CLOSE2:CLOSE15:PRINT"[147]":END
  56.